Private Sub txtElements_Leave(ByVal sender As Object, ByVal e As _
               System.EventArgs) Handles txtElements.Leave
  Elements = CInt(txtElements.Text)
End Sub
